SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TTTIPO_ITES_I01]    
/*-------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                --*/    
/*---Cliente              : OFISIS              --*/    
/*---Sistema              : Presupuestos         --*/    
/*---M¸dulo               : Adminstaci©n               --*/    
/*---Programa             : Ingreso Tabla Tipo Interfase --*/    
/*---Script               : TTTIPO_I.SQL        --*/    
/*---Nombre SP            : SP_TTTIPO_ITES_I01         --*/    
/*---Desarrollado por     : Daniel Chiang        --*/    
/*---Fecha Creaci¸n       : 05/08/1999                 --*/    
/*---Base Datos           : Microsoft Sql Server       --*/    
/*---Versi¸n              : 7.0                        --*/    
/*---Invoca a SP          :                            --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Modificado 1 por     :                            --*/    
/*---Fecha Modificaci¸n   :                            --*/     
/*---Detalle Modificaci¸n :                            --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Comentarios                                       --*/    
/*---                                                  --*/    
/*---                                                  --*/    
/*-------------------------------------------------------*/    
    
/*------------------------------------------------------ */    
/* Drop Proc SP_TTTIPO_ITES_I01      */    
/* Grant All On SP_TTTIPO_ITES_I01 To Public    */    
/* SP_TTTIPO_ITES_I01 ''10'', ''01'' ,1       */    
/*-------------------------------------------------------*/    
  
 @ISCO_EMPR TD_VC_002,     
 @ISCO_USUA TD_VC_008,     
 @ISID_INTE TD_VC_002,     
 @INNU_DETA TD_IN_001,     
 @ISNO_INTE TD_VC_050,     
 @ISNO_FISI_TABL TD_VC_020,     
 @ISNO_LOGI_TABL TD_VC_030,     
 @INNU_CORR TD_IN_001 ,     
 @ISDE_CAMP TD_VC_030    
 As    
 BEGIN TRAN SP_TTTIPO_ITES_I01    
 IF EXISTS (SELECT * FROM TTTIPO_ITES WHERE CO_EMPR = @ISCO_EMPR  AND     
     ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA )    
    BEGIN      
      IF @INNU_CORR = 1    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0001 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA     
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
    END     
 ELSE    
    BEGIN    
 IF @INNU_CORR = 1    
    BEGIN     
      INSERT INTO TTTIPO_ITES (CO_EMPR , ID_INTE , NU_DETA , NO_INTE,     
      NO_FISI_TABL , NO_LOGI_TABL , CO_IMPO_0001, CO_USUA_CREA, CO_USUA_MODI )    
      VALUES(@ISCO_EMPR , @ISID_INTE , @INNU_DETA , @ISNO_INTE, @ISNO_FISI_TABL ,     
      @ISNO_LOGI_TABL , @ISDE_CAMP, @ISCO_USUA, @ISCO_USUA )    
      IF @@error != 0     
         BEGIN    
            rollback tran     
           Return    
         END     
    END       
    END     
    
      IF @INNU_CORR = 2    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0002 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 3    
  BEGIN     
    UPDATE TTTIPO_ITES      SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , 
CO_IMPO_0003 = @ISDE_CAMP, CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 4    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0004 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 5    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0005 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 6    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0006 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 7    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0007 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 8    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0008 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 9    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0009 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 10    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0010 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 11    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0011 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 12    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0012 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 13    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0013 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 14    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0014 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
       END     
  END     
      IF @INNU_CORR = 15    
  BEGIN     
    UPDATE TTTIPO_ITES     
    SET NO_INTE = @ISNO_INTE, NO_FISI_TABL = @ISNO_FISI_TABL, NO_LOGI_TABL = @ISNO_LOGI_TABL , CO_IMPO_0015 = @ISDE_CAMP, 
CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
    WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE AND NU_DETA = @INNU_DETA     
    IF @@error != 0     
       BEGIN    
        rollback tran     
        Return    
   END     
  END       
     
 UPDATE TTTIPO_ITES     
 SET NO_INTE = @ISNO_INTE, CO_USUA_CREA = @ISCO_USUA,CO_USUA_MODI = @ISCO_USUA    
 WHERE CO_EMPR = @ISCO_EMPR AND ID_INTE = @ISID_INTE     
 IF @@error != 0     
     BEGIN    
      rollback tran     
      Return    
     END     
COMMIT TRAN     
    
    
/************************FIN*****************************/


GO
